home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00481.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  1.3 KB  |  73 lines
  1. on sel27
  2.   global bore, sel, t1, drums, d, p, t
  3.   light()
  4.   set bore to bore + 1
  5.   borecheck()
  6.   set sel to 13
  7.   if drums = 0 then
  8.     puppetSound(1, 0)
  9.     set d to random(5)
  10.     if d = 1 then
  11.       puppetSound(1, 204)
  12.     end if
  13.     if d = 2 then
  14.       puppetSound(1, 208)
  15.     end if
  16.     if d = 3 then
  17.       puppetSound(1, 215)
  18.     end if
  19.     if d = 4 then
  20.       puppetSound(1, 216)
  21.     end if
  22.     if d = 5 then
  23.       puppetSound(1, 225)
  24.     end if
  25.     set drums to 1
  26.   end if
  27.   if t1 = 2 then
  28.     set p to random(12)
  29.     if p = 7 then
  30.       set t to random(4)
  31.       if t = 1 then
  32.         puppetSound(5, 0)
  33.         puppetSound(5, p + 32)
  34.       end if
  35.       if t = 2 then
  36.         puppetSound(5, 0)
  37.       end if
  38.       if t = 3 then
  39.         puppetSound(5, 0)
  40.       end if
  41.       if t = 4 then
  42.         puppetSound(5, 0)
  43.       end if
  44.     else
  45.       puppetSound(5, 0)
  46.       puppetSound(5, p + 32)
  47.     end if
  48.     set t1 to 3
  49.   else
  50.     set p to random(12)
  51.     if p = 7 then
  52.       set t to random(4)
  53.       if t = 1 then
  54.         puppetSound(6, 0)
  55.         puppetSound(6, p + 32)
  56.       end if
  57.       if t = 2 then
  58.         puppetSound(6, 0)
  59.       end if
  60.       if t = 3 then
  61.         puppetSound(6, 0)
  62.       end if
  63.       if t = 4 then
  64.         puppetSound(6, 0)
  65.       end if
  66.     else
  67.       puppetSound(6, 0)
  68.       puppetSound(6, p + 32)
  69.     end if
  70.     set t1 to 2
  71.   end if
  72. end
  73.